ML }  X c0C)HCCH Mhhݩh `eCDiCD`  RyHP   * 1H0芢@) Y0.Ș` i #(PMR\ \b Pgi 0  % @ / ՠ`d   0DDԝLXN@  )?HI Y0`HIJH) * J j * hJJJ )HJ h i     } YS S0 i`΢ϣ߳H J3xj2h} 1 |9 ӭ45(420 * (0241өX.`  R *i)Lvw  ~*P}E 5 LN(G E  r s k rsrL ( E LO(0d( L iE0O +)$IC  H S8 }q p h   j 8no CDLQ CFl M  LO Ri)Llk2'")*F }$F$F$F$F$ 5 )ШF/Șl]kpqС,LQ/A! Ti)Zlk@ ܬ/i)(")")k }$F$F$F 5$/L /lF@jj(LNkle$$%8(k()` R 8 ELO Ri)^>jf | NrC s } ) vw5g   enfo Glvw LQ@iLm>j FL ~Jjjjii p qEh }jlrs`LQ:$ȱ$@+[_#{ 8  Խut! ai 8   E I   ] C } H h    ˰ 8  N   Lm E  ,  [ `LQ ,/ 8 ~/  Ơ? ѩ}/  [ /Lj0?MoLn FjMqLp NklLOLQnLoMlNLO R"(+}ըHH`Q R!!  % !   / .   FȑF! /GF \H"+0+* }! F tLQnm: J~nTF1F  *n+)5! n (, n)1JJJn(n*o} I ,0  ci a oF? @ , 8,0 ʩ0H Eh   i}  D ]DmmFLQvtu`*&!*@h ] 0 ^0` c 0l$$%}()()%*&J%H,@hH hH@,h $% 8i8$(%)0hhH ]h`() c 0H c 0 h}`hhh&JJ ](ll  LQ0  /qnoHH 9 9 H H  I9  9 } Nd EH  Q8 o n  FnoL HII/ Ih8`h`Lnon`no`u F }E VEhLO/luF l0BF/lɜɛ׽hE N  b VFL FREE SECTORS C} H) *Fh ):FȽ F FC IH' 0 d  i:Fȩ/F.l`CD/08HDIC}IHȰ/F`ȱ$>.+.i ȱ$:刄H !A \ Hȱ$*?ȝ 2. ? [_{ ,0}-:) 0$:>WI  IТ,LQH  0hLd ~ t u`C ?( 0(C.` E } R =! .ti S0N EE D XC )0')AY  )ע ? 0E088FG \o}n  (HhLcL3 iJ i Lqp 0=rspnqopqlk`jZj0  j FL`H}FhȑFȽlFi0 h FFLFpvqwgneofLF pq7  G0i 0 FJJh1FqȱFpȱFk`B!}08`hEE D 8. =D}tui( TʩL`b!)    cȌaȌd b`aab}H8 hdaHcd8 cH hHH  \h hc` =Hh I8ih( t  ( t(!` L\}CJfCJfCJfCDfC` a  HII  INdh  `h  `n)8jHniPoijIjFIjFIjh` a } I 38  8H0 I  ' H LQ8j Y  8j NdY  &I &I &IHeH.p!}Iiq  `!.莿 2Jjj }.m Ȉ!m FG` ɩLQ z "} e Hi04 \ Ȍ  8 i h !`I0 `C Y8.`DOS SYS#} I  ` ~ݩ.C/`ba.m۩mѤC9 `C L] H  ,- '0 l $}, BLVDE`D1:AUTORUN.SYS8hhJ ȱHȱIȱBȱDȱEeeHHLV)  %}1*  ,,p-  0 I &  '0   Lw)l, 0  I&LD1:MEM.SAV&}E:D1:DUP.SYSQcr h$q/Llu0., @,Dl5 ' 0YY38'} D  C D     )16CS S)  C)D1 p p (}0 C9DI pCDL~CiCDiD` DD˙` d J)L !)}D L(( LL()  L| L( S LH 0p n  *} CY?  q  L L  ` )+} `A! d߰")-݆ "  $G@LLL&0") $G%,}H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0-})8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH).}  hyhyB q L> Lm JJ  Ln*` dB%'/}8  H H` 1 { LL   !L     Hh SY?  q  1L0}  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L1}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@2}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q3} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF 4} G) *Gȩ GȽG GȌd q q G`  8   0G  `D5}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y6}`piH n0)բY? 08`0 7}  0$L GGȽG L `8L`L8}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`9}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE:} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR;}1LJ舩9GIH`LJJ`HGHh l`<} S gL   8 rii `дCDCG W  =}C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}@ >} HE |||||DOS DOSDOS SYS }?}}0}Y@}CDOS SYSB +MONEY ASMB$8SOUNDFX BASB\BOOT1 ASMBaBOOT9 ASMB eADJSTOP 3D B xTIE 3D BXWING A} 3D 0`BDELV !B B}`LVUQ   ]   TU J ]L!T  #      TU C} L ? .  t`GBJ V~DEHI B V0dVD}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEhE}DEL8HI   0 HI,0 0  9 .G VLOF},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHIG} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHIH} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO I}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -J}LLu DEHILV 9 .l 9 .l  `` s$B VBHK}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVLL}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2eM}1i1232435ޥ<<8}0100 .OPT NO LIST0110 ; MONEY HUNGRY0120 ;0130 ; BY DONALD MURPHY0140 ;0150 ; ANALOG COMPUTING0160 ;0170 ;VARIABLEO}S0180 ;0190 LEVEL = $80 ;LEVEL #0200 DELAY = $81 ;DELAY INDEX0210 HERE = $820220 NOX = $83 ;HORIZ. MOVE FP}LAG0230 NOY = $84 ;VERT. MOVE FLAG0240 TX = $85 ;X HOLD AREA0250 DM = $86 ;MISC. VARIABLE0260 XM = Q} $87 ;HORIZ. FLAG0270 YM = $88 ;VERT. FLAG0280 DIRC = $89 ;ENMY CUR DIRECTION0290 DIRN = $8C ;NEXT ENR}MY DIRECTION0300 NDOOR = $8F ;# OF DOORS0310 TF3 = $900320 TF4 = $910330 POINTL = $B0 ;GENERAL POINTER0340 POS}INTH = $B10350 TABPTL = $B2 ;TABLE POINTER0360 TABPTH = $B30370 VBPNTL = $B4 ;VBLANK POINTER0380 VBPNTH = $B50390 T}EDELAY = $B6 ;ENEMY DELAY0400 ELEVEL = $B7 ;ENEMY LEVEL0410 XPOSP0 = $B8 ;HORIZ. POS. PLR 00420 XPOSP1 = $B9 ;U}HORIZ. POS. PLR 10430 XPOSP2 = $BA ;HORIZ. POS. PLR 20440 XPOSP3 = $BB ;HORIZ. POS. PLR 30450 SCOUNT = $BC ;SCOREV} COUNT TO ADD0460 YPOSP0 = $BD ;VERT. POS. PLR 00470 YPOSP1 = $BE ;VERT. POS. PLR 10480 YPOSP2 = $BF ;VERT. POS. W}PLR 20490 YPOSP3 = $C0 ;VERT. POS. PLR 30500 TEMPX = $C1 ;VERT. POS. PLR 40510 DRES = $C2 ;DIVISION RESULT052X}0 LDIV = $C3 ;LOW DIVIDEND0530 DIVS = $C4 ;DIVISOR0540 XPOSSC = $C5 ;HOR. POS. ON SCRN0550 YPOSSC = $C6 ;VY}ERT POS. ON SCRN0560 MUPL = $C7 ;LO MULTIPLIER0570 MUCN = $C8 ;MULTIPLICAND0580 RESL = $C9 ;RESULT0590 RESZ}H = $CA0600 STICKC = $CB ;STICK VALUE0610 STICKN = $CC ;NEXT STICK VALUE0620 NDOTS = $CD ;#DOTS EATEN0630 ;06[}40 ;HARDWARE & SHADOW LOCATIONS0650 ;0660 COLOR0 = $02C4 ;PLAYFIELD COLORS0670 COLOR1 = $02C50680 COLOR2 = $02C60690 SD\}LSTL = $0230 ;DISP LIST POINTER0700 SDLSTH = $02310710 CHBAS = $02F4 ;CHAR BASE ADDR0720 GRACTL = $D01D ;GRAPHICS CONT]}ROL0730 SDMCTL = $022F ;DMA CONTROL0740 COLPM0 = $D012 ;P/M COLORS0750 COLPM1 = $D0130760 COLPM2 = $D0140770 COLPM3 = ^}$D0150780 HPOSP0 = $D000 ;PLAYER HOR. POS.0790 HPOSP1 = $D0010800 HPOSP2 = $D0020810 HPOSP3 = $D0030820 PMBASE = $D407 _} ;P/M BASE ADDRESS0830 VCOUNT = $D40B ;VERT. LINE COUNTER0840 WSYNC = $D40A ;WAIT FOR SYNC0850 P0PF = $D004 ;COLLISI`}ON REGISTERS0860 P0PL = $D00C0870 P1PF = $D0050880 HITCLR = $D01E ;COLLISION CLEAR0890 RANDOM = $D20A ;RANDOM #0900 a}NMIST = $D40F ;NMI STATUS0910 AUDCTL = $D208 ;AUDIO CONTROL0920 AUDC1 = $D201 ;AUD. CHANNELS0930 AUDC2 = $D2030940 Ab}UDF1 = $D200 ;AUD. FREQUENCIES0950 AUDF2 = $D2020960 CONSOL = $D01F ;CONSOLE KEYS0970 SKCTL = $0232 ;SERIAL PORT CTRLc}0980 GPRIOR = $026F ;P/M PRIORITY0990 STICK0 = $0278 ;STICK 01000 STRIG0 = $0284 ;BUTTON 01010 ;1020 ;TABLES AND RAM d}ASSIGNMENTS1030 ;1040 CTAB0 = $1800 ;PL.0 COLORS1050 CTAB1 = $1900 ;PL.1 COLORS1060 CTAB2 = $1A00 ;PL.2 COLORS1070e} CTAB3 = $1B00 ;PL.3 COLORS1080 CHSET = $3800 ;CHARACTER SET1090 SCRAM = $3A00 ;SCREEN ADDRESS1100 PMRAM = $1C00 ;f}P/M ADDRESS1110 ;1120 ;PROGRAM START1130 ;1140 *= $209E1150 ;1160 ;TITLE SCREEN DISPLAY LIST1170 ;1180 TSCRD .BYg}TE 112,112,112,112,1121190 .BYTE 112,112,$471200 .WORD TSCRW1210 .BYTE 112,6,112,7,112,112,1121220 .BYTE h}112,6,$411230 .WORD TSCRD1240 ;1250 ;TITLE SCREEN DATA1260 ;1270 TSCRW .BYTE 0,0,0,0,45,47,46,371280 .BYTE 57,0i},40,53,46,39,50,571290 .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,01300 .BYTE 226,249,0,0,0,0,0,0,0,0,01310 .BYTE 0,0,0,100j},111,110,971320 .BYTE 108,100,0,0,109,117,1141330 .BYTE 112,104,121,0,0,0,240,2421340 .BYTE 229,243,243,0,243,k}244,2251350 .BYTE 242,244,0,244,239,0,2261360 .BYTE 229,231,233,2381370 ;1380 ;GAME BOARD DISPLAY LIST1390 ;140l}0 DLIST .BYTE 112,112,112,$451410 .WORD SCRAM1420 .BYTE 5,5,5,5,5,5,51430 .BYTE 5,5,5,7,651440 .WORD DLISm}T1450 ;1460 ;PLAYER COLORS & BIT MAPS1470 ;1480 ENBMAP .BYTE 54,20,127,541490 .BYTE 42,127,28,62,01500 ENCMAP .BYTEn} $FA,$8A,$8A,$BA1510 .BYTE $E6,$E6,$FF,$BA,$FF1520 PLBMAP .BYTE 119,28,8,20,621530 .BYTE 28,28,62,01540 PLCMAP .Bo}YTE $38,$88,$88,$EA1550 .BYTE $EA,$38,$EA,$EA,$381560 GAME .BYTE $A7,$A1,$AD,$A51570 OVER .BYTE $AF,$B6,$A5,$B21580 ;p}1590 ;GAME EXECUTION STARTS HERE!1600 ;1610 INIT LDX #01620 INILP LDA CHDAT,X ;SET UP1630 STA CHSET,X ;CHAR SET1640q} LDA CHDAT+256,X1650 STA CHSET+256,X1660 LDA SCDAT,X ;AND SCREEN1670 STA SCRAM,X1680 LDA SCDAT+256,Xr}1690 STA SCRAM+256,X1700 DEX 1710 BNE INILP1720 LDA # >TSCRD ;SHOW...1730 STA SDLSTH ;TITLE SCREEN1s}740 LDA # =9?7140 BCC NOB ;NO7150 } LDA #18 ;WRAP TO ZERO7160 STA SCRAM+447,Y7170 DEY ;NEXT CHARACTER7180 BPL GET7190 RTS } ;ALL DONE!7200 NOB CLC ;INCREMENT THE7210 ADC #1 ;SCORE7220 STA SCRAM+447,Y7230 DEX ;}NEXT ADD7240 BNE SCORE ;GO ADD IT!7250 RTS ;ALL DONE!7260 ;7270 ;PLAYER MOVEMENT7280 ;7290 PMOVE STA }YM ;SAVE ACCUM7300 TYA ;MOVE VERT TO A7310 SEC ;SCREEN OFFSET7320 SBC #167330 STA LDIV} ;PUT IN DIVIDER7340 LDA #8 ;DIV BY 87350 STA DIVS7360 LDA #0 ;CLEAR RESULT7370 STA DRES738}0 JSR DIVIDE ;DIVIDE IT!7390 STA XM ;SAVE REMAINDER7400 LDA DRES ;GET RESULT7410 AND #1 ;ODD}?7420 BNE OD1M ;YES!7430 LDA #1 ;DON'T PERMIT7440 STA XM ;HORIZ. MOVE7450 OD1M LDA YM ;GET V}ERT7460 SEC ;SUB SCREEN OFFSET7470 SBC #487480 STA LDIV ;STORE IN DIVIDER7490 LDA #4 ;DIV} BY 47500 STA DIVS7510 LDA #0 ;CLEAR RESULT7520 STA DRES7530 JSR DIVIDE ;DIVIDE IT!7540 STA YM} ;SAVE REMAINDER7550 LDA DRES ;GET RESULT7560 AND #3 ;VERT MOVE OK?7570 EOR #17580 BEQ OD2M } ;YES!7590 LDA #1 ;DON'T ALLOW7600 STA YM ;VERT MOVEMENT7610 OD2M RTS ;EXIT!7620 MPXR LDY XPOS}P1,X ;CAN PLAYER7630 CPY #179 ;MOVE RIGHT?7640 BCC CMR ;YES!7650 JMP END ;NO!7660 CMR INY };INCREMENT HORIZ7670 TYA ;PUT IN ACCUM7680 STA XPOSP1,X ;SET THE POS7690 STA HPOSP1,X7700 JMP END} ;ALL DONE!7710 MPXL LDY XPOSP1,X ;CAN PLAYER7720 CPY #68 ;MOVE LEFT?7730 BCS CML ;YES!7740 JMP E}ND ;NO!7750 CML DEY ;DEC HORIZ7760 TYA ;PUT IN ACCUM7770 STA XPOSP1,X ;CHANGE POS7780 STA} HPOSP1,X7790 JMP END ;ALL DONE7800 MPXU LDY YPOSP1,X ;GET VERT7810 LDX #$0A ;10 BYTES TO MOVE7820 CPY} #24 ;AT TOP?7830 BCS CMU ;NO, CAN MOVE7840 JMP END ;CAN'T GO UP!7850 CMU LDA (POINTL),Y ;MOVE UP!786}0 DEY 7870 STA (POINTL),Y7880 INY 7890 LDA (TABPTL),Y ;MOVE COLORS7900 DEY 7910 STA (TABPTL),Y7}920 INY 7930 INY 7940 DEX 7950 BNE CMU7960 LDX TEMPX ;RESTORE X7970 DEC YPOSP1,X ;DEC VERT POS}7980 JMP END ;ALL DONE7990 MPXD LDX TEMPX ;GET PLAYER #8000 LDA YPOSP1,X ;CAN HE...8010 CMP #87 ;GO }DOWN?8020 BCC CMD ;YES!8030 JMP END ;NO!8040 CMD ADC #9 ;GET OFFSET...8050 TAY ;TO PLAYE}R END8060 LDX #$0A ;10 BYTES8070 L DEY 8080 LDA (POINTL),Y ;MOVE HIM!8090 INY 8100 STA (POINTL),Y8}110 DEY 8120 LDA (TABPTL),Y ;MOVE COLOR8130 INY 8140 STA (TABPTL),Y8150 DEY 8160 DEX 8170 B}NE L8180 LDX TEMPX ;RESTORE X8190 INC YPOSP1,X ;INC VERT POS8200 JMP END ;ALL DONE8210 ;8220 ;VBLANK F}INISH8230 ;8240 END LDA POINTL ;ADD 128 TO8250 CLC ;P/M POINTER8260 ADC #$80 ;TO INDICATE8270 ST}A POINTL ;NEXT PLAYER8280 LDA POINTH8290 ADC #08300 STA POINTH8310 INC TABPTH8320 LDX TEMPX ;GET }PLAYER #8330 INX ;INCREMENT IT8340 CPX #3 ;ALL DONE?8350 BCS ENDDVB ;YES!8360 JMP MAIN ; }NO, LOOP BACK!8370 ENDDVB LDX SCOUNT ;GET SCORE ADD8380 LDA #0 ;ZERO IT8390 STA SCOUNT8400 JSR SCORE ; }ADD TO SCORE8410 LDA STRIG0 ;BUTTON PRESSED?8420 BNE PQW ;NO!8430 JSR DOOR ;PLACE A DOOR8440 PQW JMP  }$E462 ;VBLANK DONE!8450 ;8460 ;INITIALIZATION SEQUENCE8470 ;8480 INT LDA #3 ;SET UP...8490 STA LEVEL ;INITI }AL SPEEDS8500 STA ELEVEL8510 STA DELAY8520 STA EDELAY8530 LDY #19 ;CLEAR SCORE LINE8540 LDA #08 }550 CG STA SCRAM+440,Y8560 DEY 8570 BNE CG8580 LDA #$57 ;RESET # MEN8590 STA SCRAM+4428600 LDY #}0 ;ZERO SCORE8610 LDA #188620 L2 STA SCRAM+447,Y8630 INY 8640 CPY #68650 BNE L28660 RTS } ;ALL DONE!8670 ;8680 ;CHANGE LEVELS8690 ;8700 NEXTL LDA ELEVEL ;GET ENEMY SPEED8710 CMP LEVEL ;SAME AS PLAYER?}8720 BEQ NDS ;YES!8730 DEC LEVEL ;SPEED UP PLAYER8740 BNE NOC ;BUT DON'T ALLOW8750 LDA #1 ;}LEVEL < 18760 STA LEVEL8770 NDS DEC ELEVEL ;SPEED UP ENEMY8780 BNE NOC ;BUT DON'T ALLOW8790 LDA #1 };ELEVEL < 18800 STA ELEVEL8810 NOC JSR CLRVB ;CLEAR VBLANK8820 JSR SOUND2 ;MAKE A SOUND8830 JSR SETSC ;S}ET UP SCREEN8840 JSR SETPM ;SET UP P/M8850 JSR SETEM ;SET ENEMIES8860 JSR SETPL ;SET UP PLAYER8870 }JSR SETVB ;SET VBLANK8880 JSR PRIZE ;SET UP MONEYBAG8890 JMP COLOR ;DISPLAY COLORS8900 ;8910 ;CLEAR VBLANK }VECTORS8920 ;8930 CLRVB LDA #6 ;IMMEDIATE OFF8940 LDX #$E48950 LDY #$5F8960 JSR $E45C8970 LDA #7 } ;DEFERRED OFF8980 LDX #$E48990 LDY #$629000 JMP $E45C ;AND EXIT9010 ;9020 ;MONEY BAG HANDLER9030 ;9040} PRIZE LDA #MONEY/256 ;SET UP...9050 STA $0227 ;TIMER 1 VECTOR...9060 LDA #MONEY&255 ;TO POINT TO...9070 STA} $0226 ;BAG PRINTER9080 SETT1 LDA #1 ;SET UP TIMER!9090 LDY #09100 LDX #49110 JMP $E45C ALL DONE!9120} ;9130 ;MONEY BAG DISPLAY ROUTINE9140 ;9150 MONEY LDA #28 ;PUT BAG CHAR 19160 STA SCRAM+219 ;ON SCREEN9170 LDA} #29 ;PUT BAG CHAR 29180 STA SCRAM+220 ;ON SCREEN9190 LDA #MGONE/256 ;REPOINT TIMER9200 STA $0227 ;TO BA}G ERASE9210 LDA #MGONE&255 ;ROUTINE9220 STA $02269230 JMP SETT1 ;GO SET IT9240 MGONE LDA #0 ;ERASE BAG9}250 STA SCRAM+2199260 STA SCRAM+2209270 RTS ;AND EXIT9280 DEATH JSR CLRVB ;TURN OFF VBLANK9290 JS}R SOUND1 ;DO DEATH SOUND9300 LDX SCRAM+442 ;1 LESS LIFE9310 DEX 9320 CPX #$52 ;MORE LIVES?9330 BCS ST}ILL ;YES!9340 JMP GOVER ;GAME OVER!9350 STILL STX SCRAM+442 ;ZERO LIVES9360 JSR SETPM ;SET UP P/M9370 J}SR SETPL ;AND PLAYER9380 JSR SETEM ;AND ENEMIES9390 JSR SETVB ;AND VBLANK9400 STA HITCLR ;CLEAR COLLISI }ONS9410 JMP COLOR ;AND RESTART!9420 ;9430 ;GAME OVER ROUTINE9440 ;9450 GOVER LDX #0 ;SHOW MESSAGE:9460 PR1 LDA!} GAME,X ;'GAME'9470 STA SCRAM+442,X9480 INX 9490 CPX #49500 BNE PR19510 LDX #09520 PR2 LDA OVER,X "} ;'OVER'9530 STA SCRAM+454,X9540 INX 9550 CPX #49560 BNE PR29570 JMP PROG ;AND RESTART!9580 ;95#}90 ;OPEN DOOR9600 ;9610 DOOR DEC NDOOR ;1 LESS DOOR9620 BNE RED ;DOORS LEFT9630 INC NDOOR ;NO DOORS!9640 $} RTS ;EXIT9650 RED LDA NOY ;VERTIVAL DOOR?9660 BEQ VD ;YES!9670 LDA XPOSSC ;OK FOR HOR. DOOR?%}9680 AND #39690 BNE ENDD ;NO!9700 LDA #$C0 ;MAKE DOOR SOUND9710 STA AUDF29720 LDA #$A39730 &} STA AUDC29740 LDY #0 ;DRAW DOOR9750 LDA #309760 STA (VBPNTL),Y9770 RTS ;AND EXIT9780 VD '}LDA YPOSSC ;VERT DOOR OK?9790 AND #19800 BNE ENDD ;NO!9810 LDA #$C0 ;MAKE DOOR SOUND9820 STA AUDF2(}9830 LDA #$A39840 STA AUDC29850 DEC VBPNTL ;BACK 1 CHAR9860 LDY #1 ;DRAW DOOR9870 LDA #319880)} STA (VBPNTL),Y9890 DEY 9900 STA (VBPNTL),Y9910 RTS ;AND EXIT9920 ENDD INC NDOOR ;NO DOOR DISPLA*}YED,9930 RTS ;RESET & RETURN9940 ;9950 ;SOUND SUBROUTINES9960 ;9970 SOUND1 LDA #168 ;INIT SOUND9980 STA+} AUDC29990 LDA #100 ;INIT FREQ010000 STA TF3010010 LDX #$FF ;LOW DELAY COUNT010020 LDY #20 ;HI DELAY ,}COUNT010030 SL1 LDA TF3 ;GET FREQ010040 STA AUDF2 ;STORE IT010050 DEX ;DELAY 1010060 BNE SL1 ;LOOP -}IF NOT READY010070 DEY ;DELAY 2010080 BNE SL1 ;LOOP AGAIN010090 INC TF3 ;INC FREQUENCY010100 INC .}TF3010110 LDY #20 ;RESET HI DELAY010120 LDA TF3 ;GET FREQ010130 CMP #$A0 ;LAST FREQ?010140 BNE SL1 /} ;NO!010150 LDA #136 ;END OF SOUND010160 STA AUDC2010170 LDA #50010180 STA AUDF2010190 LDX #255 ;LO DELA0}Y COUNT010200 LDY #255 ;HI DELAY COUNT010210 SL2 DEX ;DELAY LOOP010220 BNE SL2010230 DEY 010240 BNE SL21}010250 LDA #0 ;SOUND OFF010260 STA AUDF2010270 STA AUDC2010280 RTS ;BYE!010290 SOUND2 LDA #168 ;INI2}TIAL SOUND010300 STA AUDC1010310 LDA #$40 ;INITIAL FREQ010320 STA TF4010330 LDX #$FF ;LO DELAY COUNT0103403} LDY #20010350 SL3 LDA TF4 ;GET FREQ010360 STA AUDF1 ;STORE IT010370 DEX ;DELAY 1010380 BNE SL3010394}0 DEY ;DELAY 2010400 BNE SL3010410 DEC TF4 ;NEXT FREQ010420 DEC TF4010430 LDY #20 ;RESET DELAY5}010440 LDA TF4 ;LAST FREQ?010450 BNE SL3 ;NO!010460 LDA #0 ;TURN OFF SOUND010470 STA AUDF1010480 S6}TA AUDC1010490 RTS ;AND EXIT010500 ;010510 ;CHARACTER SET DATA010520 ;010530 CHDAT010540 .BYTE 0,0,0,0,0,0,7}0,0,85,85010550 .BYTE 85,170,85,85,85,85,149,149,149,170010560 .BYTE 85,85,85,85,85,85,85,170,149,149010570 .BYTE 148}9,149,149,149,149,149,149,149,149,149010580 .BYTE 21,21,21,21,21,21,21,21,149,149010590 .BYTE 149,170,149,149,149,149,89}6,86,86,170010600 .BYTE 86,86,86,86,85,85,85,170,86,86010610 .BYTE 86,86,86,86,86,170,85,85,85,85010620 .BYTE 84,84,:}84,84,84,84,84,84,86,86010630 .BYTE 86,86,86,86,86,86,85,85,85,85010640 .BYTE 85,85,85,85,149,149,149,149,85,85010650 ;} .BYTE 85,85,86,86,86,86,85,85,85,85010660 .BYTE 85,85,85,149,149,149,149,149,85,85010670 .BYTE 85,86,86,86,86,86,0,0,<}0,128010680 .BYTE 0,0,0,0,0,60,102,110,118,102010690 .BYTE 60,0,0,24,56,24,24,24,126,0010700 .BYTE 0,60,102,12,24,48=},126,0,0,126010710 .BYTE 12,24,12,102,60,0,0,12,28,60010720 .BYTE 108,126,12,0,0,126,96,124,6,102010730 .BYTE 60,0,0>},60,96,124,102,102,60,0010740 .BYTE 0,126,6,12,24,48,48,0,0,60010750 .BYTE 102,60,102,102,60,0,0,60,102,62010760 .BY?}TE 6,12,56,0,34,10,42,160,162,160010770 .BYTE 42,10,136,160,40,10,42,10,40,160010780 .BYTE 192,192,192,192,192,192,192,@}192,0,0010790 .BYTE 0,255,0,0,0,0,0,60,102,110010800 .BYTE 110,96,62,0,0,24,60,102,102,126010810 .BYTE 102,0,0,124,1A}02,124,102,102,124,0010820 .BYTE 0,60,102,96,96,102,60,0,0,120010830 .BYTE 108,102,102,108,120,0,0,126,96,124010840 B}.BYTE 96,96,126,0,0,126,96,124,96,96010850 .BYTE 96,0,0,62,96,96,110,102,62,0010860 .BYTE 0,102,102,126,102,102,102,0,0C},126010870 .BYTE 24,24,24,24,126,0,0,6,6,6010880 .BYTE 6,102,60,0,0,102,108,120,120,108010890 .BYTE 102,0,0,96,96,96D},96,96,126,0010900 .BYTE 0,99,119,127,107,99,99,0,0,102010910 .BYTE 118,126,126,110,102,0,0,60,102,102010920 .BYTE 1E}02,102,60,0,0,124,102,102,124,96010930 .BYTE 96,0,0,60,102,102,102,108,54,0010940 .BYTE 0,124,102,102,124,108,102,0,0,6F}0010950 .BYTE 96,60,6,6,60,0,0,126,24,24010960 .BYTE 24,24,24,0,0,102,102,102,102,102010970 .BYTE 126,0,0,102,102,10G}2,102,60,24,0010980 .BYTE 0,99,99,107,127,119,99,0,0,102010990 .BYTE 102,60,60,102,102,0,0,102,102,60011000 .BYTE 24H},24,24,0,0,126,12,24,48,96011010 .BYTE 126,0,0,30,24,24,24,24,30,0011020 .BYTE 0,64,96,48,24,12,6,0,0,120011030 .BYTI}E 24,24,24,24,120,0,0,8,28,54011040 .BYTE 99,0,0,0,0,0,0,0,0,0011050 .BYTE 255,0,0011060 ;011070 ;SCREEN DATA011080 J};011090 SCDAT011100 .BYTE 0,0,0,5,3,1,1,1,3,1011110 .BYTE 1,1,3,1,1,1,3,1,1,1011120 .BYTE 3,1,1,1,3,1,1,1,3,101113K}0 .BYTE 1,1,3,1,1,8,10,0,0,0011140 .BYTE 0,0,0,5,4,0,17,0,17,0011150 .BYTE 17,0,17,0,17,0,17,0,17,0011160 .BYTE 17L},0,17,0,17,0,17,0,17,0011170 .BYTE 17,0,17,0,17,11,10,0,0,0011180 .BYTE 0,0,0,5,4,0,17,1,6,0011190 .BYTE 17,1,6,0,17M},1,6,0,17,1011200 .BYTE 6,0,17,1,6,0,17,1,6,0011210 .BYTE 17,1,6,0,17,11,10,0,0,0011220 .BYTE 0,0,0,5,4,0,17,0,17,0N}011230 .BYTE 17,0,17,0,17,0,17,0,17,0011240 .BYTE 17,0,17,0,17,0,17,0,17,0011250 .BYTE 17,0,17,0,17,11,10,0,0,001126O}0 .BYTE 0,0,0,5,4,0,17,1,6,0011270 .BYTE 17,1,6,0,17,1,6,0,17,1011280 .BYTE 6,0,17,1,6,0,17,1,6,0011290 .BYTE 17,1P},6,0,17,11,10,0,0,0011300 .BYTE 0,0,0,5,4,0,0,0,0,0011310 .BYTE 0,0,0,0,0,0,0,0,0,0011320 .BYTE 0,0,17,0,17,0,17,0,1Q}7,0011330 .BYTE 17,0,17,0,17,11,10,0,0,0011340 .BYTE 0,0,0,5,4,0,17,1,6,0011350 .BYTE 17,1,6,0,17,1,6,0,17,1011360 R} .BYTE 6,0,17,1,6,0,17,1,6,0011370 .BYTE 17,1,6,0,17,11,10,0,0,0011380 .BYTE 0,0,0,5,4,0,17,0,17,0011390 .BYTE 17,0S},17,0,17,0,17,0,17,0011400 .BYTE 17,0,17,0,17,0,17,0,17,0011410 .BYTE 17,0,17,0,17,11,10,0,0,0011420 .BYTE 0,0,0,5,4T},0,17,1,6,0011430 .BYTE 17,1,6,0,17,1,6,0,17,1011440 .BYTE 6,0,17,1,6,0,17,1,6,0011450 .BYTE 17,1,6,0,17,11,10,0,0,0U}011460 .BYTE 0,0,0,5,4,0,17,0,17,0011470 .BYTE 17,0,17,0,17,0,17,0,17,0011480 .BYTE 17,0,17,0,17,0,17,0,17,0011490 V} .BYTE 17,0,17,0,17,11,10,0,0,0011500 .BYTE 0,0,0,5,2,1,1,1,2,1011510 .BYTE 1,1,2,1,1,1,2,1,1,1011520 .BYTE 2,1,1,1W},2,1,1,1,2,1011530 .BYTE 1,1,2,1,1,9,10,0,0,0011540 .BYTE 0,0,87,0,0,0,0,18,18,18011550 .BYTE 18,18,26,0,0,0,0,0,0,0X}011560 .BYTE 0,0,0,0,0,0,0,0,0,0011570 .BYTE 0,0,0,0,0,0,0,0,0,0011580 .BYTE 0,0,0,0,0,0,0,0,0,0011590 .BYTE 0,0,Y}0,0,0,0,0,0,0,0011600 .BYTE 0,0,0,0,0,0,0,0,0,0011610 .BYTE 0,0,0011620 ;011630 ;RUN ADDRESS011640 ;011650 *= $0Z}2E0011660 .WORD INIT011670 .END 0,0,0,0,0,0011610 .BYTE 0,0,0011620 ;011630 ;RUN ADDRESS011640 ;011650 *= $0'01H]VOICSNDXYYDVAMESSLSFTYPOINXPOINX@@ \}  A  ]}ĠϠ ( 2 pq0@ ^}+",$@%+"@,$@%+"@,$@%+"@,$@+",$@-@@"(D _}uring SUSTAIN:qe-@@#5(BASIC COMMAND SOUND I-@@W(,8<,[ e( vP)-8 `}<,%@8<@,%1(~P8<,"A` w -'8<,x8428<@, a}8<@,8<@,$+',8 y""8<@,"A`z,,-@@'8<@,2.28< b}@,8<@,8<@,2 ""8<@,"A`0,,-@@'8<@,HD28 c}<@,8<@,8<@,$++@&,'@,H 4T:,42 B d}XtF:B2y,"@ ( 2-@@"DARM(_@AqB7tAtY>- e}@@#>(# Z<0@@@<8<,"Ap [<(- f}@$'8<,<-@]<428<@,8<@,8<@,$+',8 < a""8<@ g},"Apb<(-@$'8<@,<-@g6.28<@,8<@,8<@, q}BJDOS SYSB NMONEY ASMB$[SOUNDFX BASBBOOT1 ASMBBOOT9 ASMB ADJSTOP 3D B TIE 3D BXWING 3D BCOMPUTER3D BSSTRAPS LSTBSSBIGPLTLSTBEPSONDMPLSTBCITOHDMPLSTBFMATHMAN BASB(READER BAS2 6 k""8<@,"Ap)l<(-@$'8<@,<-@q@828<@,8 r}<@,8<@,$++&,',< @ u^B2y@*F:B2y,"@>-@Z2 s}^ v B@v9;@,9@<@,;AU,;@0,J67@,.[67@0,.j67@ t},.v6-AOa #B"9@<@,6-@J-@N"Y68<,-] a Tg #A0 u}!-@%"967B:,%@,.c67B:,%@,.7@($Use ˠ to pos y}ition cursor.`(Press button to change value."o(( To hear sound, press button whenJ(cursor is on ů line.o z}( Press for combined sounds,"H+(#using time values of current voice.H( ends the program.(#`-@ {}3-8<,8<@,7([-8<,%@8<@,`(2#_-@E-8<,%@ |}8<@,%%@O(8<,S W _(~<#6-@6-@'? B6-R:,+6-T:,?@ }}BP'2B2y@2F:B2y,@Ap'0@@'"@B'U)-8< ~},%@8<@,%7( C!U(8<&@,'"('F@w!6- }-6-9"@F6-6@$'"@6-5@.'"@6-6@8'"@6-5@ }B' 6-%6-L'1"*!@%6-16-@V'1"@*!@%6-16-@`'1"@ }* %6-@16-@j'1"@* %6-@16-t'%"*!%6-@ }~'%"@* %6-'%"@* %6-@'%"@*!%6-@'##6-$++ },*+@,,'Z)-8<,%@8<@,%7( C!Z(8<&@,~'" }(~' B:" A`:A+68<&@,-8<&@,%@A#+&@,%B:/ " }8<&@,!/68<&@,-:)8<&@, )68<&@,-:R&@"@R68<&@,-@$ }P:8<&@,'@%?P,: B@8J 50,09J 50,0:J 50,0;J 255,0 255, X REG = } $FF20 ;IF RESULT <= 255, X REG = $0022 ;24 *= $060026 ADDXY CLD ;BINARY MATH28 STX TEMP ;SAVE }X REG.30 TYA ;PUT Y IN ACC.32 CLC ;CLEAR FOR ADD34 ADC TEMP ;ADD X REGISTER36 } BCS GTR255 ;BRANCH IF > 25538 LDX #$00 ;ZERO X REGISTER40 RTS ;AND RETURN!42 GTR255 LDX #$FF ;SE }T X REGISTER44 RTS ;AND RETURN!46 TEMP *=*+148 .ENDTS ;AND RETURN!42 GTR255 LDX #$FF ;SE N10 *= $060012 LDA #$F0 ;PUT # IN ACCUM.14 TSX ;GET STACK PTR16 STX STACK1 ;SAVE S}TACK #118 PHA ;PUSH ACCUM.20 TSX ;GET STACK PTR22 STX STACK2 ;SAVE STACK #224 } PLA ;PULL ACCUM.26 TSX ;GET STACK PTR28 STX STACK3 ;SAVE STACK #330 BRK ;A}LL DONE!32 STACK1 *=*+134 STACK2 *=*+136 STACK3 *=*+138 .END STX STACK3 ;SAVE STACK #330 BRK ;AH58-13-13-13-13-13-13131313131313-131-18613-1861-13-131313-6-4.86-3.88-3.23-3-3.23-3.88-4.86}-6-7.14-8.12-8.77-9-8.77-8.12-7.14-6-4.86-3.88-3.23-3-3.23-3.88-4.86-6-7.14-8.12-8.77-9-8.77-8.12-7.1}4-12-12-14-14-12-12-12-12-14-14-12-12-3-3-7-7-3-38.258.251010105510-4-4.23-4.88-5.86-7-8.14-}9.12-9.77-10-9.77-9.12-8.14-7-5.86-4.88-4.23-4-4.23-4.88-5.86-7-8.14-9.12-9.77-10-9.77-9.12-8.14-7-5.8}6-4.88-4.23-9-5-5448844-5-5-9-9-9-9-9-9-944222882-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9-9}888888888888888888122334455667788991010111112121211310495867113131414}1515161617171818121519192020212117201614221922132323242425252626182621232224625727}282829293030313132323333343435353636373738383939404041414242272743434444454546464747}48484949505051515252535354555455565657575858432844294530463147324833493450355136523}75338543955405641574258354555455565657575858432844294530463147324833493450355136523#84555555-5-5-5-5-5-5-111-1-111-1-111-1-111-1-2-2-2-2222222223333-2-2-2-2-3-}3-3-333334444-3-3-3-3-4-4-4-444445555-4-4-4-4-5-5-5-5-2242-2-4-2242-2-4-2-2-}2-211-1-12222-1-1111-1-111-1-11010-1010-1010-1010-100.670-0.6700.670-0.6700.67}0-0.6700.670-0.6700.330-0.3300.330-0.3300.330-0.3300.330-0.33660-6-60660-6-6011-1-122}22-1-111-2-2-2-211-1-1-1-11110-1010-1010-1010-100.670-0.6700.670-0.6700.670-0.67}00.670-0.6700.330-0.3300.330-0.3300.330-0.3300.330-0.3301381223344556611425367889}910101111121277108119121320201717242421212828252516161314191918182323222227272626}151514131414353536362323242429293030131615153434333322222121323231311617181836363333}27272828323229291720191935353434262625253131303020373838393940403741424243434444413}74138423943404445464647474848454950505151525249454946504751485253545455555656535758}585959606057535754585559566061626263636464616566666767686865616562666367646869707071}71727269737474757576767369737074717572767778787979808077818282838384848177817882798}380842697374747575767673697370747175727677787879798080778182828383848481778178827989400777737374040402222404046465055556060555550505555606055555046464040222240404037}372424333336360077773737404022224040464650555560605555505055556060555550464640402}22240403737333326222127262228323243444446464747433231323228282928201920201616171651}122445161620232526222523262221272622283243444446464747433231323228282928201920201}616171651122445162026221111121211111313131212111112121212131112121212111313111212}1212111312121212111112121313131212151513139988996688998888698888966988889}68888998866131316115125235345455565675785891010591160126113621463156416651766}18671968206921702271237224732574267527762877297830793180328133823483358436853786388}73988408941904241439144921017171833343441121313141411111261626263636060611015151616}171710596464656566665938393940403737388788888989868687413434353536364190838384848585}90464546474749495050484845459494504693934947484793489412233441515252535354545156}64444262625257755556569292757574745757552518188877257467675858575774444343333326}264492918275759218191920202121222223232424252518676868696970707171727273737474672633}33323231313030292928282727267582828181808079797878777776767591821727273737474672633a11244-4-4-3-3-3.6-3.83.83.6332.82.82.8-2.8-2.8-2.8-2.8-0.60.62.80.6-0.60.6-0.60.6-0.6-322.73.!}2-322.73.2-322.73.2-322.73.2-2.81.82.73.23.22.71.8-2.8-2.81.82.73.23.22.71.8-2.8-2.41.42.73.2!}3.22.71.4-2.4044443.93.943.93.93.63.23.63.93.92.32.32.31.7-1.7-3.2-3.6-222-2-1.71.71.7-1.7!}-3.9-2-2222.3-3.9-4-2.3-2.3-2.3-2.3-3.6-3.93-3-3330-0.5-2.8-2.8-0.503310013-0.5-0.5-0.5-0.!}5-0.4-0.4-0.4-0.4-0.6-0.6-0.8-0.8-0.8-0.8-1-1-1-1-1.1-1.1-1.1-1.1-1.3-1.3-1.3-1.3-1.4-1.4-1.4-1.4-!}1.6-1.6-1.6-1.6-1.7-1.7-1.7-1.7-1.9-1.9-1.9-1.9-2-2-2-2-2.2-2.2-2.2-2.20-0.8-0.82.72.72.7-0.8333!}-0.4-2-2.5-2.8-0.4-0.4-0.43-2.7-2.7-2-2.5-2.8-2.8-2.7-2.7-2.15-2.15-2.5-2.5-2.8-2.7-2.7-2.7-2.733!}333-0.4-0.4-0.4-0.41.5001.51.51.50.90.30.30.91.51.51.51.51.51.51.51.50.90.90.90.9110.80.80.8!}0.8111111110.90.90.90.90.90.90.90.90.80.80.80.80.80.80.80.80.70.70.70.70.70.70.70.70.60.6!}0.50.50.50.50.60.6000.20.20-0.2-0.20-0.3-0.7-0.7-0.7-0.3-0.3-0.3-0.7-0.3-0.7-0.7-0.7-0.7-0.3-0.3!}-0.3-0.1-0.1-0.7-0.7-0.3-0.3-0.3-0.3-0.1-0.1-0.3-0.3-0.30-0.3-0.7-0.7-0.3-0.7-0.31221223344156!}6778899101011111266611710131516181417192021222325252780892426262827282423293031!}323135353636323034333433293738384242414137394040444443433945464748484949505047465151!}52524553545556565757585855595459606053616263646465656666636267676868617376717272747!}47575717782388486808179838485858384797980851048292969797819792928792939394949191888!}8878895959898919199908990988796310610610510710828210810910911011011211211111110911189991!}0577761048686108107108771057611064107110101102103102399927021011011211211111110911189991 W270 FOR I=1 TO PS:? "POINT ";I272 TRAP 272:INPUT Q1,Q2,Q3274 X(I)=Q1:Y(I)=Q2:Z(I)=Q3:NEXT I310 FOR I=1 TO LS:? :? "LINE ";%}I312 ? "FROM POINT";:TRAP 312:INPUT Q1:LN(I,0)=Q1314 ? " TO POINT";:TRAP 314:INPUT Q1:LN(I,1)=Q1316 NEXT I:? :? "LINE ";$o210 TRAP 190:CLOSE #3:OPEN #3,8,0,"P":? #3;EG$;"*H*I*M0,-820*I":PC=0860 IF O$="Y" THEN ? #3;"M0,0*D480,0*D480,800*D0,800*D0,)}0"1000 ? #3;"M";(191-Y1)*2.5;",";(319-X1)*2.5;"*D";(191-YW)*2.5;",";(319-XW)*2.5:PC=PC+11020 IF PC>0 THEN ? #3;"H*M0,-820*I)}":PC=0 ? #3;"M";(191-Y1)*2.5;",";(319-X1)*2.5;"*D";(191-YW)*2.5;",";(319-XW)*2.5:PC=PC+11020 IF PC>0 THEN ? #3;"H*M0,-820*I(1045 IF PEEK(53279)=3 THEN GOSUB 3000:GOTO 10403000 REM *** EPSON GRAPHICS DUMP ***3010 SCREEN=PEEK(88)+PEEK(89)*256:TRAP 3-}040:CLOSE #1:OPEN #1,8,0,"P:":? #1;"A";CHR$(8)3020 FOR I=SCREEN TO SCREEN+39:? #1;"K";CHR$(192);CHR$(0);3030 FOR J=I+7640-} TO I STEP -40:PUT #1,PEEK(J):NEXT J:? #1:NEXT I:CLOSE #13040 RETURN REEN+39:? #1;"K";CHR$(192);CHR$(0);3030 FOR J=I+7640,G1045 IF PEEK(53279)=3 THEN GOSUB 3000:GOTO 10403000 REM *** C.ITOH GRAPHICS DUMP ***3010 SCREEN=PEEK(88)+PEEK(89)*256:TRAP 1}3040:CLOSE #1:OPEN #1,8,0,"P:":? #1;"T16"3020 FOR I=SCREEN+39 TO SCREEN STEP -1:? #1;"S0192";3030 FOR J=I TO I+7640 STEP 1}40:PUT #1,PEEK(J):NEXT J:? #1:NEXT I:CLOSE #13040 RETURN N+39 TO SCREEN STEP -1:? #1;"S0192";3030 FOR J=I TO I+7640 STEP 0;pq!""BEGIROGBQQSIGANSWESTANSCOSTRIWRONADSMMPOSMEMIDPTAPRUPWHAPS5} 5}5} !"#$%&'()*+,-.5}/012345************************* MATHMAN **5} BY FRANCISCO MONCADA ** ANALOG COMPUTING ************************* 6-@% APdF6-P:@5}$H:,,76-P:@$H:,,C6-@F$F6-P:@&$H:,,76-P:@&$H:,,C6-@F$5}F6-P:@$H:,,76-P:@$H:,,C6-@F$,Q6-P:@Q$H:,,76-P:@Q$H:,,C5}6-@Q!A1$Q6-P:@!$H:,,76-P:@!$H:,,C6-@Q!A$D%6-5}P:@$H:,%@,AAAPAD$X\6-%@#@@/!@;6-M-@5}\(@ bM-@"(@(!.6-@-@M(@lT@@5}1-@0@@@6-F:B2y,T"@APq%2@@9-@= 5}a2@%@@@sA@"@A`vC-@ @*AF:B7p,?(@5} C n%2G2@Y-@ @n(@ 5}$ n@@)-@@K2A@@Z6-F:B2y,n"@A`%>-@ 5}@*(@ WRONG!>"@AP*S -@ @.(@ P25}S$Z +@6-@d(6-F:@,4!A'B6-&A(N@ZB7t9-6-F:A`,%F:A5}a,$AV%@96-@S&@@q+%@@?%@@S%@@)-5}@@$%%@) %@@e.%@ F:A`,E%@!F:Aa,W@@iA5}@{A@8AADx-@-(@ Ƞ?-@ @L(@5}n6-F:@,%AV$F:@,x A0p@@'-@@D(@ϠˠV-@@5}p(@ Ƞi-@@2(@ϠԠD-@@ ](@ Ƞi5}6-Lg6-%@%-@) >AF:B7p,SA F:B7p,g"APAP[,F:B25}y,"@" B, A`] F:B2y,"@A`` Aj #APo%6-%@"""6@5}%$t- %-@@# - A5~%%39,97,45,101,0,47,118,37,114,-156-%@#A@H5A5}AHa@@aA PA `A pA A A!A!A! A!0$U @5},@ @1/@@C,@@U/@@,@@'/@@9/@5}@K,@@]/@@o,@@/@@ A$ 9,@@'/@5}@9/@@)4/@@)'/@@1 A4$],@@0'/@@@9/@5}@@K/@@4]/@@4],@@0'/@@@9/@@@K/@@4]/5}@@4"/@@4 A"$ K,@@'/@@&9/@@&K/@@!5}%K,@@!',@@9/@@K,@@'' A$*K,@"@'/@"@&5}9/@!@&K/@!@!/K,@ @!',@@9/@!@K,@ @'1 A5}$4K,@@A'/@@A9,@@BK/@@B9 A$>K,@@A'/@!5}@A9,@@BK/@!@BC A$HC @,@@1,@@C,@@5} MK,@@'/@@9,@@K/@@O4,@@',@@1 A5}4$RK,@@'/@@9,@@K/@@WX,@@'/@@9,5}@@K/@@U AX$N +@6-F:@,(!A'66-&A(B@NB7t5}}-6-F:A`,%F:Aa,$AV%@O2q2@}6-@5}?&@@q+%@@?%@@%-@@$%%@+ A@+5}A@8W%@@e.%@ F:A`,E%@!F:Aa,WAAD<@@5}'-@<(@MaThMaNb-@@1(@cOpYrIgHt 1984C-@@b(@FrAnCi5}ScO mOnCaDap@@'-@@D(@ϠˠV-@@p(@ Ƞ5}i-@@ 2(@ϠԠD-@@](@ Ƞi6-g6-%@%-5}@) >AF:B7p,SA F:B7p,g"APA,F:B2y,"@" B, A`5} F:B2y,"@A` AQp` +@#@w.6-F:@,:!A'H6-&A(T@6}`B7tr-6-F:A`,%F:Aa,$AV%@96-E6-WA@y26}2@uu&@@p+%@@?-@@M%@Q6} cAAuA @Dzm@@'-@I(@high  score [-@@6}m(@L=|9@@'-@@9(@____g@'@ 9A6}AHE"@ Y-A] g A7AAAPAAAPI-@@6}Y(@ k-@@{(@ -@@(@ 3-@@!!@ 36}-@@@(@"-@@.!@ @-@@,(@,A`0AbAc6}G 6-%-@@3(@>:@,G!@ A`@X-@@! Ae% 7-@@6}D(@N AaX A`T-@@! Ae5-@ &@A"@G6-T(@L 6 }-@@&(@86-+$@,%B AaL A`  A $ " A$8G-@6 }@+(@>:@,36-&G!@ Ab=X-@@! Ae% 7-@@D(@6 }N AaX A`BT-@@! Ae5-@ &@A"@G6-T(@GL -@@6 }&(@86-+$@,%B AaL A`@-@@$(@x,6-$@!@ AcX6 }-@@! Ae% 7-@@D(@N AaX A`T-@@! Ae5-@ 6}&@A"@G6-T(@L -@@&(@86-+$@,%B AaL A`d6}AdAUi66-F:B2y,'F:Ad,"@P36-6$n'F:Ad,"@1$6-@'$s'F:Ad,"6}@0$6-@'$v"@' A`x'F:Ad,"@&$6-@'$yB+F:@,"@*F:@ ,!6}A8.'8 A B A`}'F:Ad,"@$$6-@'$'F:Ad,"@)$6-@'$'F:Ad,"6}@'$6-@'$'F:Ad,"@Q$6-@'$"@' AP'F:Ad,"@S$6-@6}'$'F:Ad,"@H$6-@ '$ Ae8J N;@w#6-%@/!@;6-@*NO'26}@t%@@9-@@O(@ ,Nb-@ 0AF:B7p,E6}A F:B7p,bF:B2y,"@B-N%%2/NF:B2y,"@$9N F:B2y6},"@B>Nb-@ 0AF:B7p,EA F:B7p,bF:B2y,"@BCN B6} D:MATHMAN-@ 0AF:B7p,EA F:B7p,bF:B2y,"@BCN B4IJ2ABCDEFGHQUESANS1ANS2ANSANXEAAPNOTDURATIOPITC:} :}THE READING PROGRAMBY ED RYBCZYKANALOG:} COMPUTING;@, -@#@6@ +*-@@*(@welcome-@@:}  %-@@%(@to#-@@  (.-@@.(@ THE READING-:}-@@  2*-@@ *(@PROGRAM7-@@  < Al-@@":}92@@O-@'@PS W lP=PITCH,D=DURATIONFAA121,240,81,480,91,60,96,60,108,60,60,24:}0,81,480,91,60,96,60K55108,120,60,240,81,480,91,60,96,60,91,60,108,720P%%2UA +@': }0@@A0@@Vi-@@6(@YOU READ THE STORY.H-@@i(:!}@i'll ask questions.Z?-@@?(@YOU TYPE ONE WORD ANSWERS._$ (PRESS WHEN READY.:"}$c #Ad;@ ,;@ ,;@ ,;@ ,;@ ,;@ ,;@ ,;@ ,;@@,;:#}@,;@,;@,nM +@'0@@A0@@M6-p'@A:$}'B7tAx"|4ENDA-@@"(@4-@@A(@:%}S-@@`(@r-@@(@-@@ "(@4-@@A(@:&}S-@@`(@r-@@(@O'(READ THE STORY AND PRESS K(WHEN READY TO A:'}NSWER QUESTIONS.O "6-4NONEA6-%@M"@+@30@@:(}M0@@"@!-@@.(@@-@@M(@_-@@:)}l(@~-@@(@"@!-@@ .(@@-@@M(@_:*}-@@l(@~-@@(@]"@(/(THE CORRECT ANSWER IS 2(O(PRESS :+} WHEN READYS] AP( (1 4(YOU'RE RIGHT!!!' A1 API 0%(NO, THAT'S NOT CORR:,}ECT.?(READ THE STORY AGAIN.I A`/( ( (+(DO YOU WANT ANOTHER STORY/4YA4NA :-}0Y*0NAX%2A!@@G2@@@@i2@@@@:.}2@@`@@-@A b:-@327 :$ Y:/}+@%@/0@@A-@@Y(@ I'M SORRY!*x-@@/(@ I DON:0}'T KNOWA-@@`(@ANY MORE STORIES.t-@Ax 4<(@}$-@@<(@:1} BYE BYE !! #A '!""6@+!6-P:$@0,""A 6-$@:2}2@@''2@%@@@-@ %%2:3}%%2@-@@  A FF2,47,2,60,1,81,3,60,2,47,2,60,1,53,3,53:4},2,47,2,60,1,45,2,45,1,45WW1,47,1,47,1,53,1,53,3,60,1,0,1.5,47,.5,53,1,60,1,53,1,47,1,47,2,47,1,53,1,53,2,53ZZ1,47,1,:5}40,2,40,1.5,47,.5,53,1,60,1,53,1,47,1,47,2,47,1,53,1,53,1,47,1,53,3,60,1,0,-1BILL AND MARY WENTTO THE STORE TO BU:6}YAPPLES. THEIR DOGKING WENT ALONG.THEIR MOTHER WANTEDTO BAKE A PIE. BILL$LIKED APPLE PIE BUT.:7}MARY DID NOT.8!!WHAT IS THE DOG'S NAME,KINGB&&WHERE DID BILL AND MARY GO,STOREL''WHAT DID BILL AND MARY BUY,APPLES:8}V%%WHO DID NOT LIKE APPLE PIE,MARY`&&WHO WENT WITH BILL AND MARY,KINGjNONE,NONEtTHE CIRCUS CAME TO~TOWN.:9} DAD AND ADAMWENT TO THE CIRCUS.ADAM LIKED THE LIONBUT WAS AFRAID OFTHE BEARS. ADAM ATECANDY. T::}HEY HAD FUNTHAT SUMMER DAY.WHAT CAME TO TOWN,CIRCUS**WHO WENT WITH ADAM TO THE CIRCUS,DAD##WHAT WAS ADAM :;}AFRAID OF,BEARSWHAT DID ADAM LIKE,LIONWHAT DID ADAM EAT,CANDYNONE,NONEKURT'S SOCCER TEAM IS THE :<}WILDCATS.HIS POSITION ISSTRIKER. THE TEAM(BEAT THE LIONS 2-0.2BRETT SCORED BOTH<GOALS. THEY HAD A:=}FPARTY AFTERWARDS.P%%WHAT SPORT DID KURT PLAY,SOCCERZ WHO SCORED THE GOALS,BRETTd))WHAT POSITION DID KURT PLAY,:>}STRIKERn))WHAT DID THEY HAVE AFTERWARDS,PARTYxWHO DID THEY BEAT,LIONSNONE,NONE'END,A,A,A,A,A,A,AD::?}READERn))WHAT DID THEY HAVE AFTERWARDS,PARTYxWHO DID THEY BEAT,LIONSNONE,NONE'END,A,A,A,A,A,A,AD:8